home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 October
/
Ahoy_Magazine_88-10_1988_Double_L.d64
/
Factor Fun
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
308b
|
13 lines
0 print"[147]":poke53280,6:poke53281,0
1 rem ==================================
2 rem commodares problem #52-4 :
3 rem factor fun
4 rem solution by
5 rem dale ickes
6 rem ==================================
10 input"factor what number";a
20 for c=a to 1 step -1
30 b=a/c: if b=int(b) then print b;
40 next
50 print: goto 10